10 REM *****************************
20 REM * REAKTIONSTEST V1.4-PD     *
22 REM *                           *
30 REM * (C) BY G.ZWANK            *
32 REM *        BERSCHEIDER STR.22 *
34 REM *        5529 GEICHLINGEN   *
36 REM *        TEL. 06566/8454    *
38 REM *                           *
40 REM * GEICHLINGEN,10.01.1984    *
50 REM *****************************
150 :
160 REM COSTRUCTION:C64 + SW-MONITOR + VERSTAERKER . C64 + FERNSEHGERAET
170 :
172 REM FARBEINSTELLUNGEN
175 POKE53280,0:POKE53281,0:PRINT"[147]";
182 :
184 REM VARIBLENDEFINITION
190 SC=54272:FL=SC:FH=SC+1:WF=SC+4:AN=SC+5:HA=SC+6:VL=SC+24:BH=53281:CF=.1028
205 POKEAN,0:POKEHA,240:POKEFH,58:POKEFL,138
218 K1$="[147]REAKTIONSTEST":K2$="----------------------------------------"
220 DIMP1$(3),P2$(3),P3$(3):P1$(1)="OPTISCH   ":P1$(2)="AKKUSTISCH"
225 P1$(3)="KOMBINIERT":P2$(1)="KLEIN":P2$(2)="MITTEL":P2$(3)="GROSS"
226 P3$(1)="GROSS":P3$(2)="MITTEL":P3$(3)="KLEIN":P1$="------------":HS$="   "
230 P2$="[163][163][163][163][163]"
231 :
232 REM TITEL
233 PRINT"[147]       R E A K T I O N S T E S T"
234 PRINT"       -------------------------                "
235 PRINT"(C) BY G.ZWANK[145]"
236 FORS=1TO3:N=INT(RND(1)*750):FORT=1TON:NEXT:POKE53281,1:POKEVL,15:POKEWF,17
237 FORT=1TO75:NEXT:POKE53281,0:POKEWF,0:POKEVL,0:NEXT:FORT=1TO1000:NEXT
238 :
239 REM PARAMETEREINGABE
240 TG=0:VR=0:KN=999:GN=0:FT=5
250 PRINTK1$"/PARAMETEREINGABE":PRINTK2$
260 INPUT"ANZAHL DER DURCHGAENGE......";NN$:NN=VAL(NN$):NN$=""
270 IFNN=0THEN250
280 PRINT"SIGNAL (OPTISCH    - 1)":PRINT"       (AKKUSTISCH - 2)"
290 PRINT"       (KOMBINIERT - 3).....? ";
300 GOSUB700:SF=I:PRINTP1$(I)
320 ONIGOTO330,340,345
330 OX=1:AX=0:LX=0:GOTO350
340 OX=0:AX=17:LX=15:GOTO350
345 OX=1:AX=17:LX=15
350 GOSUB720
351 PRINT"RND-ZEITANTEIL (KLEIN  - 1)":PRINTTAB(15)"(MITTEL - 2)"
352 PRINTTAB(15)"(GROSS  - 3) ? ";
353 GOSUB700:TF=I:PRINTP2$(I)
354 ONIGOTO355,356,357
355 TC=191:TR=146:GOTO358
356 TC=101:TR=240:GOTO358
357 TC=25:TR=391
358 GOSUB720
359 PRINT"PAUSE (GROSS  - 1)":PRINTTAB(6)"(MITTEL - 2)"
360 PRINTTAB(6)"(KLEIN  - 3)..........? ";
361 GOSUB700:FF=I:PRINTP3$(I)
362 ONIGOTO364,369,363
363 TC=TC*.5:TR=TR*.5:GOTO365
364 TC=TC*1.3:TR=TR*1.3
365 GOSUB730
369 PRINT"           [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
370 PRINT"            TASTE DRUECKEN [146]"
380 GETI$:IFI$<>""THEN390
385 FT=FT+1:IFFT=20THENFT=0:GOTO670
387 GOTO380
388 :
389 REM START-TESTROUTINE
390 PRINT"[147]             A C H T U N G":PRINTTAB(13)"-------------"
400 FORN=1TONN
410 T=TC+INT(RND(1)*TR)
420 FORTT=1TOT:GETI$:IFI$<>""THENPRINTTAB(17)"[  0]*":VR=VR+1:GOTO410
430 NEXT
440 POKEVL,LX:POKEWF,AX:POKEBH,OX
445 FORT=1TO1000:GETI$:IFI$=""THENNEXT:GOTO750
455 TT=T:T=1000:NEXT:T=TT
460 POKEWF,0:POKEVL,0:POKEBH,0
480 TG=TG+T:IFT<KNTHENKN=T
490 IFT>GNTHENGN=T
500 OA=T:GOSUB760:T=OA:TM$=STR$(T):TM$=RIGHT$(HS$,4-LEN(TM$))+TM$
505 PRINTTAB(17)TM$"]":PRINT"[145]"TAB(17)"[":NEXT
510 PRINTTAB(16)"E N D E":PRINTTAB(16)"-------":FORT=1TO1500:NEXT
511 :
512 REM AUSWERTUNG
513 TG=INT(TG/(NN*CF))/10:IFTG-INT(TG)=>.5THENTG=INT(TG)+1:GOTO515
514 TG=INT(TG)
515 OA=KN:GOSUB760:KN=OA:OA=GN:GOSUB760:GN=OA
520 TP$=LEFT$(P2$,LEN(STR$(TG)))+"[163][163][163][163][163][163][163]"
530 PRINTK1$"/AUSWERTUNG":PRINTK2$:IFNN>1THEN532
531 PRINT"1 DURCHGANG":GOTO550
532 P$=LEFT$(P1$,LEN(STR$(NN)))
540 PRINT"[157]"NN"DURCHGAENGE"
550 PRINT"SIGNAL         : ";P1$(SF):PRINT"RND-ZEITANTEIL : ";P2$(TF)
555 PRINT"PAUSE          : ";P3$(FF)
570 PRINT"MITTLERE ZEIT  :";TG;"[157]/200 SEC"
575 PRINTTAB(17)TP$
580 PRINT"LAENGSTE ZEIT  :";GN;"[157]/200 SEC"
590 PRINT"KUERZESTE ZEIT :";KN;"[157]/200 SEC"
600 PRINT"FEHLVERSUCHE   :";:IFVR=0THENPRINT" KEINE":GOTO610
605 PRINTVR
610 GOSUB740:PRINT"WEITER (J/N) ? ";:
620 GETI$:IFI$="J"THENPRINTI$;:GOSUB730:GOTO240
630 IFI$<>"N"THEN620
640 PRINTI$;:GOSUB730:PRINT"[147]PROGRAMMENDE":END
645 :
646 REM UNTERROUTINEN
670 IFFS=1THENFS=-1:GOTO369
680 FS=1:PRINT"[145][145]                           ":PRINT"                           "
690 GOTO380
700 GETI$:I=VAL(I$):IFI<1ORI>3THEN700
710 RETURN
720 FORS=1TO250:NEXT:RETURN
730 FORS=1TO500:NEXT:RETURN
740 FORS=1TO3000:NEXT:RETURN
750 PRINTTAB(17)"[999]N":POKEWF,0:POKEVL,0:POKEBH,0:GOTO410
760 OA=INT(OA/CF)/10:IFOA-INT(OA)=>.5THENOA=INT(OA)+1:RETURN
770 OA=INT(OA):RETURN